home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_23429.txt < prev    next >
Text File  |  1989-06-13  |  5KB  |  232 lines
  1. -- card: 23429 from stack: in
  2. -- bmap block id: 25341
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=339 top=141 right=163 bottom=439
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: SELFED
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   delete line 1 of card field F1
  23.   delete line 1 of card field F2
  24.   delete line 1 of card field F3
  25.   repeat 32 times
  26.     put random of 32 into it
  27.     if it <=8 then add 1 to card field F1
  28.     if it >=25 then add 1 to card field F3
  29.     if it >8 and it <25 then add 1 to card field f2
  30.   end repeat
  31.   add the value of card field F1 to card field F4
  32.   add the value of card field F2 to card field F5
  33.   add the value of card field F3 to card field F6
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 00
  40. -- high flags: 0002
  41. -- rect: left=270 top=178 right=200 bottom=332
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: F1
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 00
  54. -- high flags: 0002
  55. -- rect: left=346 top=177 right=199 bottom=408
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: F2
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 00
  68. -- high flags: 0002
  69. -- rect: left=420 top=177 right=199 bottom=482
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: F3
  78.  
  79.  
  80. -- part 5 (field)
  81. -- low flags: 00
  82. -- high flags: 0002
  83. -- rect: left=268 top=261 right=283 bottom=330
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: F4
  92.  
  93.  
  94. -- part 6 (field)
  95. -- low flags: 00
  96. -- high flags: 0002
  97. -- rect: left=347 top=261 right=283 bottom=409
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: F5
  106.  
  107.  
  108. -- part 7 (field)
  109. -- low flags: 00
  110. -- high flags: 0002
  111. -- rect: left=421 top=261 right=283 bottom=483
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: F6
  120.  
  121.  
  122. -- part 8 (button)
  123. -- low flags: 00
  124. -- high flags: 8003
  125. -- rect: left=353 top=24 right=46 bottom=420
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: RESET
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   delete line 1 of card field F1
  137.   delete line 1 of card field F2
  138.   delete line 1 of card field F3
  139.   delete line 1 of card field F4
  140.   delete line 1 of card field F5
  141.   delete line 1 of card field F6
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 9 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=336 top=313 right=335 bottom=436
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: CHI SQUARE
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   global bagone
  161.   global bagtwo
  162.   global bagthree
  163.   put the value of card field F4 into bagone
  164.   put the value of card field F5 into bagtwo
  165.   put the value of card field F6 into bagthree
  166.   go to card id 25732
  167.   put 0 into card field class1
  168.   put 0 into card field class2
  169.   put 0 into card field class3
  170.   put 0 into card field class4
  171.   put 0 into card field F5
  172.   put 0 into card field F6
  173.   put 0 into card field F7
  174.   put 0 into card field F8
  175.   put bagone into card field "CLASS1"
  176.   put bagtwo into card field "CLASS2"
  177.   put bagthree into card field "CLASS3"
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 10 (button)
  183. -- low flags: 00
  184. -- high flags: 8003
  185. -- rect: left=160 top=315 right=337 bottom=260
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: SUB HEADINGS
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   go to card id 9665
  197. end mouseUp
  198.  
  199.  
  200.  
  201.  
  202. -- part contents for background part 1
  203. ----- text -----
  204. MONOHYBRID CROSS
  205.  
  206. -- part contents for background part 2
  207. ----- text -----
  208. Although a monohybrid cross, the results in this case differ slightly from the first two crosses. You are dealing with plants here and after crossing a true breeding red and white variety of snapdragon, you find that the F1 are all pink. Selfing the F1 produces a unique F2. Can you explain the inheritance mechanism? As before, you might need to run the program several times before a trend in the ratios can be seen. Reset will clear all the windows, multiple selfings are effected by simply clicking on the SELFED button.
  209.  
  210. -- part contents for card part 3
  211. ----- text -----
  212. 19
  213.  
  214. -- part contents for card part 2
  215. ----- text -----
  216. 8
  217.  
  218. -- part contents for card part 4
  219. ----- text -----
  220. 5
  221.  
  222. -- part contents for card part 5
  223. ----- text -----
  224. 8
  225.  
  226. -- part contents for card part 6
  227. ----- text -----
  228. 19
  229.  
  230. -- part contents for card part 7
  231. ----- text -----
  232. 5